home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 25
/
AMIGAplus Sonderheft 25 (2000)(Falke)(DE)(Track 1 of 4)[!].iso
/
Service
/
Future
/
BEGIN
< prev
next >
Wrap
Text File
|
2000-05-08
|
755b
|
27 lines
;Im Moment funktioniert der Which-Check nur, wenn C: KEIN ROOT ist, also nicht
; C:=Workbench:, sondern C: = Workbench:c/ <- wegen dem Schrägstrich
if not exists ram:t
makedir ram:t
endif ;Siehste, so einfach geht das! :)
assign exists AFCD: >NIL:
IF warn
requestchoice "Amiga Future (C)" "Die CD ist nicht angemeldet!*nBitte zuerst Quickstart starten." "Exit" >NIL:
quit;Keine CD angemeldet
endif
assign vorher: ""
assign guis: ""
set whichcount 0 ;Anzahl der Dateien im falschen Dir
delete t:filess t:reqtools >NIL: ;Killt temporäre Dateien!
setenv .val 0 ;Für G4C
set updater 5 ;Nur bis nach ReadOut!
if $apcdni eq 1
Gui vorher:Gauge_glow.gc ;Startet Anzeige
else
gui vorher:gauge.gc
endif
wait 1
setenv .val 100
gui vorher:sub.gc
wait 1
setenv .val 0